procedure TForm1.Button1Click(Sender: TObject);
var
  i: integer;
begin
  with Listview1 do
    for i := 0 to Items.Count - 1 do
      if Items[i].Selected then
        Items[i].Caption := Items[i].Caption + ' - Selected!';
end; 